Question

Срочно нужна помощь задачи по массивам. Паскаль

1) Дан массив из 100 элементов (заполняется случайно). Найти сумму тех элементов массива, порядковые номера которых не совпадают со значением этого элемента.
2) Дан массив из 100 целых чисел (числа вводятся случайно). Найти максимальный элемент массива.

Answer 1

{Дан массив из 100 элементов (заполняется случайно). Найти сумму тех элементов массива, порядковые номера которых не совпадают со значением этого элемента.}var j,k,i:integer;sum:longint;R:Array[1..100] of integer;Beginfor i:=1 to 100 do beginR[i]:= random(95)-25;write(R[i]:3);if i <> R[i] then sum:= sum + R[i];end;writeln;writeln('сумму элементов массива = ',sum);end.
{Дан массив из 100 целых чисел (числа вводятся случайно). Найти максимальный элемент массива.}var k,i,max:integer;R:Array[1..100] of integer;Beginmax:=-25;for i:=1 to 100 do beginR[i]:= random(95)-25;write(R[i]:3);if R[i] > max then max:= R[i];end;writeln;writeln('максимальный элемент массива = ',max);end.