Текст программы

Program zadach6v1;

uses crt;

type

mas = array [1..3, 1..3] of integer;

Var

i, j, k, s: integer;

b,a: mas;

begin

clrscr;

for i:= 1 to 3 do

for j:= 1 to 3 do

begin

write('Введите элемент a','[',i,',',j,']=');

Readln (b [i, j]);

end;

writeln('Исходный массив);

for i:= 1 to 3 do

begin

for j:= 1 to 3 do

write (b [i, j]:4);

writeln;

end;

k:=0; S:=0;

for i:= 1 to 3 do

for j:= 1 to 3 do

if b [i, j]>0 then a[i, j]:=2 * b [i, j]

else

begin

k:=k + 1;

s:=s + b [i, j];

a[i, j]:= b [i, j];

end;

writeln('Измененный массив’);

for i:= 1 to 3 do begin

for j:= 1 to 3 do

write(a [i, j]:4);

writeln;

end;

writeln ('Сумма отрицательных элементов S = ',S);

writeln ('Количество отрицательных элементов K = ',K);

textcolor(green);

writeln('Разработал Иванов И.И.,':50);

readln;

end.

Протокол выполнения

 

Литература

1. Сборник задач по программированию.-2-е изд., перераб. и доп. – СПб.: БХВ-Петербург, 2007.

2. Информатика: Учеб. Пособие для 10-11 кл. общеобразоват. Учреждений/ Л. З. Щауцукова. – М.: Просвещение, 2000.

3. Сборник задач по курсу информатики / под редакцией Л.И. Белоусовой. – М.: Издательство «Экзамен», 2007.