Розгляньте ілюстрацію та вкажіть усі можливі правильні відповіді. for x in range(start,stop,step):
<тіло циклу>
1 .Слово in вказує програмі як завгодно надати змінній x усіх значень в діапазоні від start до stop із кроком step.
2. Зображено синтаксис циклу for
3. x – це параметр (лічильник циклу)
4. Слово in вказує програмі по черзі надати змінній x усіх значень вдіапазоні від start до stop із кроком step.
program p1;
var x:integer;
begin
write ('x=');
read (x);
if x>0 then
writeln ('Число x положительное.');
if x=0 then
writeln ('Число x нейтральное.');
if x<0 then
writeln ('Число x отрицательное');end.
Программа 2.
program p2;
var x,y,z,s:real;
begin
write ('x=');
read (x);
write ('y=');
read (y);
write ('z=');
read (z);
if x>0 then
s:=s+x;
if y>0 then
s:=s+y;
if z>0 then
s:=s+z;
if x+y+z<=0 then
writeln ('Все числа отрицательные либо нейтральные. Операция невозможна.');
if x+y+z>0 then
writeln ('s=', s);
end.
var n:=ReadInteger('n = ');
var m:=ReadInteger('m = ');
Writeln('Исходная матрица:');
var a:=MatrRandom(n,m,-20,20);
a.Println(4);
for var i:=0 to a.RowCount-1 do
for var j:=0 to a.ColCount-1 do
if a[i,j]>0 then a[i,j]:=1 else a[i,j]:=0;
Writeln('Измененная матрица:');
a.Println(4)
end.
Пример:
n = 4
m = 5
Исходная матрица:
7 -8 -7 -5 -7
2 4 -3 -2 -13
14 5 -12 9 20
12 11 18 -3 7
Измененная матрица:
1 0 0 0 0
1 1 0 0 0
1 1 0 1 1
1 1 1 0 1