1. Дан массив a, состоящий из 8 элементов. Получить массив b, в котором b[i] = a[i]*a[i] (1 <= i <=8). var a,b:array[1..8] of integer; i:integer; begin writeln('a:'); for i:=1 to 8 do begin a[i] := random(10); write (a[i], ' ') end; writeln; writeln('b:'); for i:=1 to 8 do begin b[i] := a[i]*a[i]; write (b[i], ' ') end; end.
2. var a:array[1..9] of integer; i:integer; begin writeln('a:'); for i:=1 to 9 do begin a[i] := random(50)+10; write (a[i], ' ') end; writeln; for i:=1 to 9 do if a[i] mod 2 = 0 then writeln(a[i], ' - четное число') else writeln(a[i], ' - нечетное число') end.
Пример: a: 55 51 18 35 33 56 15 56 47 55 - нечетное число 51 - нечетное число 18 - четное число 35 - нечетное число 33 - нечетное число 56 - четное число 15 - нечетное число 56 - четное число 47 - нечетное число
Объяснение:
var a,b,c : real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
c:=sqrt(a*a+b*b);
writeln('c = ',c)
end.
Пример:
a = 3
b = 4
c = 5