Новые сообщения · Правила  
  • Страница 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
Поиск: