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

Написать программу в паскаль которая вычислит произведение элементов массива с четными индексами (кто 15 )

👇
Ответ:
angelikamaxowoz4v
angelikamaxowoz4v
12.09.2021
Const n=10;
var a:array[1..n] of integer;
p,i:integer;
begin
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
p:=1;
for i := 1 to n do  
if i mod 2=0 then p:=p*a[i];
writeln('p=',p);
readln;
end. 
4,4(66 оценок)
Открыть все ответы
Ответ:
ilinet
ilinet
12.09.2021
Нам абсоютно безразлично что именно будет передаваться по каналу связи, главное какой объем. Итак у нас объем 100 килобайт.Переведем в байты:100 килобайт * 1024 байт в килобайте = 102400 байт.Переведем в биты:102400 * 8 бит в байте = 819200 бит. Найдем теперь пропускную скорость канала в битах в секундупоучебникам в 1 килобите чаще 1024 бита100 мбитсек = 1024*100 килобит в секунду = 1024*1024*100 бит в секунду = 104857600 бит в секунду. Разделим:819200/104857600 = 0.0078125 секундответ: 0.0078125 секунд
4,6(82 оценок)
Ответ:
Атмир089997
Атмир089997
12.09.2021
Uses Crt;
const
  n=300;
type
  V=array[1..n,1..3] of 0..5;
function Cnt4(var a:V):integer;
 { Количество учеников со средним выше 4 }
var
  i,j,k:integer;
  sb:real;
begin
  k:=0;
  for i:=1 to n do
  begin
    sb:=0;
    for j:=1 to 3 do sb:=sb+a[i,j];
    sB:=sb/3;
    if sb>4 then
    Inc(k);
  end;
  Cnt4:=k
end;

var
  i,j:integer;
  M:V;
begin
  ClrScr;
  Writeln('Для каждого ученика вводите через пробел три его оценки');
  for i:=1 to n do
  begin
    Write(i,': ');
    for j:=1 to 3 do Read(M[i,j])
  end;
  Write('Количество учеников со средним выше 4: ');
  Writeln(Cnt4(M),' ');
  ReadKey
end.
4,4(31 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ