Даны 4 программы. Опишите своими словами, что они делают.

А)
const N = 30;
var a: array[1..N] of integer;
i: integer;
Begin
for i := 1 to N do a[i] := i;
for i := 1 to N do writeLn(a[i]);
End.

Б)
const N = 30;
var a: array[1..N] of integer;
i: integer;
Begin
for i := 1 to N do
if i mod 2 <> 0 then a[i] := 1
else a[i] := 0;
for i := 1 to N do writeLn(a[i]);
End.

В)
const N = 10;
var a: array[1..N] of integer;
i, k: integer;
Begin
for i := 1 to N do readLn(a[i]);
k := 0;
for i := 1 to N do
if a[i] = 0 then k := k + 1;
writeLn(k);
End.

Г)
const N = 10;
var a: array[1..N] of integer;
i, k, sum: integer;
Begin
for i := 1 to N do readLn(a[i]);
k := 0;
sum := 0;
for i := 1 to N do
if a[i] > 0 then begin
k := k + 1;
sum := sum + a[i];
end;
writeLn(k, sum:5);
End.

1

Ответы и объяснения

Лучший Ответ!
2013-05-07T18:41:49+04:00

a) пишет числа от 1 до 30.

б) в числах от 1 до 30, если i удовлетворяет условию i делится на 2, при этом не равен 0, то пишет 1. В других случаях 0.

в) пишет числа от 1 до 10, далее ты вводишь a(i), если оно удовлетворяет условию a(i)=0, то к k прибавляем 1 и пишется k.

Думаю помог.