М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
hbkkb
hbkkb
14.01.2022 04:18 •  Информатика

Сформирован двумерный массив 5х5 случайным образом. найти сумму их элементов и произведение (информатика турбо паскаль) ,: :

👇
Ответ:
mia017
mia017
14.01.2022
Uses crt;
const
n=5;m=7;
var
S,i,j:integer;
P:real;
a:array[1..n,1..m]of integer;
begin
clrscr;
p:=1;S:=0;
    for i:=1 to n do
         begin
            writeln;
                  for j:=1 to m do
                      begin
                           a[i,j]:=random(50);
                           write(a[i,j]:4);
                           s:=s+a[i,j];p:=p*a[i,j];
                       end;
           end;
writeln;
writeln('S= ',s,'  p= ',p:4:0);
readkey;
end.
4,7(11 оценок)
Открыть все ответы
Ответ:
danialSANDY
danialSANDY
14.01.2022

uses crt;

var i,s:integer;
a:array[1..5] of integer;
begin
randomize;
s:=0;
for i:=1 to 5 do
begin
a[i]:=random(15)-5;
if a[i]>0 then s:=s+a[i];
end;
writeln(s);
readln;
end.


uses crt;

var i,s:integer;
a:array[1..7] of integer;
begin
s:=0;
randomize;
for i:=1 to 7 do
begin
a[i]:=random(15)-5;
if ((a[i]>0) and (a[i] mod 2 = 0)) then inc(s);
end;
writeln(s);
readln;
end.

 

uses crt;

var i,s:integer;
a:array[1..6] of integer;
begin
s:=1;
randomize;
for i:=1 to 6 do
begin
a[i]:=random(15)-5;
if (a[i]>0) then s:=s*a[i];
end;
writeln(s);
readln;
end.

4,6(40 оценок)
Ответ:
6789234158333
6789234158333
14.01.2022
1.клавиатура,мышь,сканер.микрофон
2.процессор
3.чтение книги,толковый словарь,заучения правила(нащет видеокассеты зависит какое видео)
4.Backspace
5.Рабочий стол
6.операционная система
7.На ПЗУ (не знаю что это постояная память или жесткий диск
8.происходит обработка, связанная с изменением формы информации, но не изменяющая ее содержания
9.Название приложения,кнопка "Свернуть,кнопка "Закрыть",панель инструментов, палітра,рабочая область
10.Жесткий диск,флешка,лазерный диск (для DVD) ,SD-карты
11.Квадрат зелённый
4,5(41 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ