Вячейку а1 поместили дату 09.02.1949. в ячейку а2 поместили дату 28.03.1949. затем обе ячейки выделили и с маркера заполнения внесли значения в ячейки в диапазоне а3: а35. определите, какая дата будет в ячейке а20. примечание: для ячеек а3: а35 установлен формат даты 14.03.2012.
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