Найти порядковый номер первого элемента массива, кратного 5

@V1T4S · Регистрация: 12.12.2009

Студворк — интернет-сервис помощи студентам

вот еще задачки:
6. Условие: Используя оператор цикла, вводить с клавиатуры числа и выполнять с ними соответствующие действия. Результаты работы программы вывести, снабдив их соответствующими заголовками.
С клавиатуры вводятся целые положительные числа. Подсчитать сколько среди них попадается первое введенное число.
7. Условие: Используя оператор цикла, вводить с клавиатуры данные несколько раз и выполнять с ними соответствующие действия. Результаты работы программы вывести, снабдив их соответствующими заголовками.
Ввести с клавиатуры координаты центров двух окружностей и координаты двух точек на каждой окружности. Вычислить площадь круга и длину окружности наибольшего радиуса.
8. Условие: Используя оператор цикла, разделить введеннос с клавиатуры число, разделить его на отдельные цифры и выполнить с ними заданные действия.
Ввести с клавиатуры число и подсчитать, сколько в нем цифр, отличных от последней цифры.
9. В старояпонском календаре был принят 60-летний цикл, состоявший из пяти 12-летних подциклов. Подциклы обозначались названиями цвета: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. (1984 год - год зеленой крысы – был началом очередного цикла).
Написать программу, которая вводит номер некоторого года нашей эры и печатает его название по старояпонскому календарю.
10. Для конкретного варианта составить массив исходных данных. Написать программу, которая работает с любым допустимым набором данных. Входную информацию и результаты счета вывести на печать, снабдив их соответствующими заголовками.
а) В массиве из 14 элементов найти количество элементов, равных первому.

Б) Дан массив из 35 элементов. Найти порядковый номер первого элемента, кратного 5.

В) Дан одномерный массив на 18 элементов. Вычислить произведение первого элемента на сумму всех остальных элементов массива.

Примного благодарен за решение ранних задач, зарание спасибо!

@Шутка · 12.12.2009, 20:27

Pascal

uses crt;
const
r=13.75;
var
s,ygol:real;
begin
writeln('ygol='); readln(ygol);
s:=((pi*r*r)/360)*ygol;
writeln('s=',s);
end.

Тогда так.

Добавлено через 5 минут
Б) Дан массив из 35 элементов. Найти порядковый номер первого элемента, кратного 5.

Pascal

uses crt;
var
x,i:integer;
a:array[1..500] of integer;
begin
for i:=35 downto 1 do begin
readln(a[i]);
if a[i] mod 5 = 0 then x:=i;
end;
writeln('pervii element kratnii 5 imeet ',x,' por.nomer');
end.

Добавлено через 2 минуты
а) В массиве из 14 элементов найти количество элементов, равных первому.

Pascal

uses crt;
var
counter,i:integer;
a:array[1..500] of integer;
begin
for i:=1 to 18 do begin
readln(a[i]);
if a[i]=a[1] then counter:=counter+1;
end;
writeln(counter-1,' elementov ravnih pervomy');
end.

Добавлено через 8 минут
Дан одномерный массив на 18 элементов. Вычислить произведение первого элемента на сумму всех остальных элементов массива.

Pascal

uses crt;
var
i:integer;
sum,proizv:real;
a:array[1..500] of integer;
begin
for i:=1 to 35 do begin
readln(a[i]);
end;
for i:=2 to 35 do begin
sum:=sum+a[i];
end;
writeln('proizvedenie 1go elementa na vse ost.=',sum*a[1]);
end.

Добавлено через 2 минуты
В остальных заданиях очень много букав. нам не очень интересно копаться в условиях, отделяя мусор от важностей =)
Перепишите попроще. или может это я просто устал.

@V1T4S · 13.12.2009, 10:33 **[ТС]**

спасибо!

@V1T4S 0 / 0 / 0 Регистрация: 12.12.2009 Сообщений: 22
		1
	Найти порядковый номер первого элемента массива, кратного 5 12.12.2009, 20:02. Показов 4636. Ответов 2 Метки нет (Все метки) вот еще задачки: 6. Условие: Используя оператор цикла, вводить с клавиатуры числа и выполнять с ними соответствующие действия. Результаты работы программы вывести, снабдив их соответствующими заголовками. С клавиатуры вводятся целые положительные числа. Подсчитать сколько среди них попадается первое введенное число. 7. Условие: Используя оператор цикла, вводить с клавиатуры данные несколько раз и выполнять с ними соответствующие действия. Результаты работы программы вывести, снабдив их соответствующими заголовками. Ввести с клавиатуры координаты центров двух окружностей и координаты двух точек на каждой окружности. Вычислить площадь круга и длину окружности наибольшего радиуса. 8. Условие: Используя оператор цикла, разделить введеннос с клавиатуры число, разделить его на отдельные цифры и выполнить с ними заданные действия. Ввести с клавиатуры число и подсчитать, сколько в нем цифр, отличных от последней цифры. 9. В старояпонском календаре был принят 60-летний цикл, состоявший из пяти 12-летних подциклов. Подциклы обозначались названиями цвета: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. (1984 год - год зеленой крысы – был началом очередного цикла). Написать программу, которая вводит номер некоторого года нашей эры и печатает его название по старояпонскому календарю. 10. Для конкретного варианта составить массив исходных данных. Написать программу, которая работает с любым допустимым набором данных. Входную информацию и результаты счета вывести на печать, снабдив их соответствующими заголовками. а) В массиве из 14 элементов найти количество элементов, равных первому. Б) Дан массив из 35 элементов. Найти порядковый номер первого элемента, кратного 5. В) Дан одномерный массив на 18 элементов. Вычислить произведение первого элемента на сумму всех остальных элементов массива. Примного благодарен за решение ранних задач, зарание спасибо! 0

@V1T4S 0 / 0 / 0 Регистрация: 12.12.2009 Сообщений: 22
	13.12.2009, 10:33 [ТС]	3
	спасибо! 0

Опции темы

Найти порядковый номер первого элемента массива, кратного 5

Решение