Циклические вычислительные процессы

[Александр56]

Вычислить Z = 0.2X – Y2, где X – максимальный элемент массива Ai, i = 1, 25, Y – минимальный элемент массива Bj, j = 1, 30.

[rus12]

массив то двумерный или нет?

[romanhch]

та по сути условия походу нет

[Mixim]

Сообщение от Александр56

Вычислить Z = 0.2X – Y2, где X – максимальный элемент массива Ai, i = 1, 25, Y – минимальный элемент массива Bj, j = 1, 30.

Что-то в этом роде:

program easy;
uses crt;
var i,j:integer;
A:array[1..25] of integer;
B:array[1..30] of integer;
X,Y:integer;
Z:real;
begin
clrscr;

for i:=1 to 25 do begin
writeln('Введите элемент A[',i,']');
readln(A[i]);
end;

for i:=1 to 30 do begin
writeln('Введите элемент B[',i,']');
readln(B[i]);
end;

X:=A[1];
Y:=B[1];

for i:=1 to 25 do 
if(A[i]>X)
X:=A[i];

for i:=1 to 30 do 
if(B[i]<Y)
Y:=B[i];

Z:=0.2*X+Y*2;
writeln('Z=', Z:0:2);

readln();
end;

Мог с объявлением массива ошибиться, но это можно посмотреть в любой книге по Паскалю