Var arr:array[1..6,1..3] of integer; i,j:integer; p:longint; begin randomize; p:=1; for i:=1 to 6 do begin for j:=1 to 3 do begin arr[i,j]:=random(10); write(arr[i,j]:5); end; writeln; end; for i:=1 to 6 do begin if i mod 2<>0 then begin for j:=1 to 3 do if arr[i,j]>0 then p:=p*arr[i,j]; end;
end; writeln('Произведение положительных элементов нечетных строк: ', p); end.
В состав алфавита языка Паскаль входит: Символы для составления переменных- латинские(строчные, прописные) символ "_" цифры (0..9) Символы разделители (пробельные символы) Составные символы - особенная группа символов, которая воспринимаются компилятором как один символ "<=", ":=",">=", "..", "//" "<>" "(*" "*)" Зарезервированные слова- слова, несущие определенное смысловое значение для компилятора Спец-символы- символы, которые предназначены для построения конструкций языка, в Паскале это: ' - + / * : ; = { } [ ] ( ) $ и т.п
arr:array[1..6,1..3] of integer;
i,j:integer;
p:longint;
begin
randomize;
p:=1;
for i:=1 to 6 do
begin
for j:=1 to 3 do
begin
arr[i,j]:=random(10);
write(arr[i,j]:5);
end;
writeln;
end;
for i:=1 to 6 do
begin
if i mod 2<>0 then
begin
for j:=1 to 3 do
if arr[i,j]>0 then p:=p*arr[i,j];
end;
end;
writeln('Произведение положительных элементов нечетных строк: ', p);
end.