CLS
N = 0
DIM A(4,
7)
DATA
51,22,33,44,-25,76,-87
DATA
229,30,-81,882,43,84,85
DATA
37,88,99,10,34,33,23
DATA
34, 55, 66, -77, 86, 65, 32, 91
FOR i
= 1 TO 4
FOR j =
1 TO 7
READ
A(i, j)
PRINT
A(i, j);
IF A(i,
j) < 0 THEN
N = N +
1
END IF
NEXT j
PRINT
NEXT i
PRINT
<span>PRINT "N ="; N
</span>
Какой это вообще редактор?
2)Отражение и тиснение - 1 картинка
Тиснение, (Отражение изображение по горизонтали) - 2 картинка
3) растровая графика, векторная графика
векторная:
+ изображение без потери качества, - большой вес
растровая:
+ маленький вес
- потеря качества
Лист защищен без пароля, чтобы случайно не повредить формулы.
Лис Excel живой, можете изменить диапазон.
Program n1;
var a: array[1..10] of integer;
i,im,om: integer;
begin
write('исходный массив: ');
a[1]:=random(21)-10;
write(a[1],' ');
om:=a[1];
for i:=2 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if (a[i]<0) and (a[i]>om) then
begin
om:=a[i];
im:=i;
end;
end;
writeln;
writeln('максимальный среди отрицательных: a[',im,']=',om);
end.
80 97 115 115 119 111 114 100
или же если в 16ричной:
50 61 73 73 77 6F 72 64