Процедуры и функции.
паскаль
Даны 2 одномерных массива 10 целых чисел.
Найти сумму квадратов всех элементов массива для которых выполняется неравенство 0
program a;
var i,n :integer;
a,b,c :array [1..10] of integer;
begin
for i:=1 to n do begin
readln(a[i],b[i]);
end;
for i:=1 to 10 do begin
if (a[i]>0) and (a[i]<10) then
if (b[i]>0) and (b[i]<10) then
c[i]:=a[i]*a[i]+b[i]*[b];
endif;
endif;
end;
for i:=1 to n do begin
writeln(C[,i,]=,c[i]);
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
