Даны 4 программы. Опишите своими словами, что они делают.А)const N = 30;var a: array[1..N] of integer;i: integer;Beginfor 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 integ...
Даны 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.
Гость
Ответ(ы) на вопрос:
Гостьa) пишет числа от 1 до 30. б) в числах от 1 до 30, если i удовлетворяет условию i делится на 2, при этом не равен 0, то пишет 1. В других случаях 0. в) пишет числа от 1 до 10, далее ты вводишь a(i), если оно удовлетворяет условию a(i)=0, то к k прибавляем 1 и пишется k. Думаю помог.
Не нашли ответ?
Похожие вопросы