slonikkristi69
?>

На листе электронной таблицы Excel задайте массив из 10 чисел. Численные значения нужно задать самостоятельно. Предусмотрите наличие положительных и отрицательных чисел. Используя соответствующие встроенные функции табличного редактора, вычислите произведение абсолютных величин отрицательных чисел и среднее арифметическое положительных чисел в этом массиве.

Информатика

Ответы

Дмитрий192
1)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i+j>5) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.

2)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i>J) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

На листе электронной таблицы Excel задайте массив из 10 чисел. Численные значения нужно задать самостоятельно. Предусмотрите наличие положительных и отрицательных чисел. Используя соответствующие встроенные функции табличного редактора, вычислите произведение абсолютных величин отрицательных чисел и среднее арифметическое положительных чисел в этом массиве.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

miss1380
prik-galina7390
zakupki
abadaeva
mirogall
kronid12
tvmigunova551
etv771370
irinabaranova2760
Guru-tailor
borisrogovpr3407
Присакарь520
КалюкМарасанов1026
Pavlov447
Reutskii-Kirilovskii1625