решение задач - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

решение задач (Помогите пожалуйста)

решение задач

Задачи вроде легкие но я ничего не понимаю и истинно надеюсь на вашу помощь... ЗАранее спасибо вот задачи:
1. найти наибольший элемент массива и его номер, массив состоит из 30 целых случайных чисел в интервале от -50 до 50

2. Проверить десять целых случайных чисел и напечатать те из них которые кратны 2. Если таких чисел нет сообщить об этом. Диапазон случайных чисел от -30 до 30

Заранее спасибо! Я прям реально буду благодарен если поможете:)))

№1 | Автор: Kuzmin081 | 2012-11-19, 16:16 | Репутация: [ + 0 ]

Quote (Kuzmin081)

1. найти наибольший элемент массива и его номер, массив состоит из 30 целых случайных чисел в интервале от -50 до 50

var
a:array[1..30]of integer;
i,max,number:integer;
begin
randomize;
max:=low(max);
for i:=1 to 30 do begin
a[i]:=random(50);
if a[i]>max then begin max:=a[i];number:=i;end;end;
writeln(max,' ',number);
end.

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2012-11-19, 16:59 | Репутация: [ + 211 ]

2. Проверить десять целых случайных чисел и напечатать те из них которые кратны 2. Если таких чисел нет сообщить об этом. Диапазон случайных чисел от -30 до 30

const
n=10;
var
a:array[1..n] of Integer;
i:Integer;
begin
setconsoleoutputcp(1251);
Randomize;
for i:=1 to n do begin
a[i]:=Random(30)-30;
Write(a[i], ' ');
end;
for i:=1 to n do begin
if a[i] mod 2 =0 then Writeln(a[i])
else writeln('число не кратно 2')
end;
readln
end.

sLip

№3 | Автор: AvoqzT | 2012-12-01, 23:26 | Репутация: [ + 0 ]

sLip

№3 | Автор: AvoqzT | 2012-12-01, 23:26 | Репутация: [ + 0 ]

Quote (AvoqzT)

a[i]:=Random(30)-30;

числа больше нуля появляться в массиве не будут

Quote (AvoqzT)

if a[i] mod 2 =0 then Writeln(a[i])
else writeln('число не кратно 2')

ты не правильно понял задание..
в твоём коде - оно будет выводить число не кратно 2 для каждого числа которое не кратно, а требовалось: если все числа не кратны - вывести сообщение, иначе вывести те, которые кратны)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№4 | Автор: Berestovskiy | 2012-12-01, 23:52 | Репутация: [ + 211 ]

решение задач (Помогите пожалуйста)

Страница 1 из 1
1

прикладная математика