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

Задача. Составьте программу в соответствии со следующим техническим заданием Дано: Файл data.dat содержит последовательность целых чисел an, n = 1,...,64. (Предполагается, что к моменту запуска программы указанный файл с соответствующим содержимым уже предоставлен.)

Требуется: Прочитать указанные данные и выполнить следующие вычисления:

1) подсчитать количество нечетных (по значению) элементов последовательности an;

2) вычислить сумму нечетных элементов последовательности an;

3) результаты вычислений вывести на экран.

👇
Ответ:
геля217
геля217
14.05.2020

Объяснение:

Скриншот


Задача. Составьте программу в соответствии со следующим техническим заданием Дано: Файл data.dat сод
4,4(51 оценок)
Открыть все ответы
Ответ:
Николь560
Николь560
14.05.2020
1)

const
  n=40;
var
  a:array [1..n] of integer;
  i,k:integer;
begin
  Randomize;
  k:=0;
  Writeln('Исходный массив');
  for i:=1 to n do begin a[i]:=random(63)+20; Write(a[i],' ') end;
  Writeln; Writeln('Четные элементы, кратные 3');
  for i:=1 to n do
    if a[i] mod 6=0 then begin Inc(k); Write(a[i],' ') end;
  Writeln; Writeln('Отобрано элементов: ',k)
end.

Пример
Исходный массив
43 49 27 45 57 20 54 22 74 79 57 64 30 41 67 58 36 68 79 46 28 74 61 21 80 57 50 24 80 36 27 57 38 38 41 71 50 69 39 48
Четные элементы, кратные 3
54 30 36 24 36 48
Отобрано элементов: 6

2)

const
  n=20;
var
  a:array [1..n] of integer;
  i,imin:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  imin:=1;
  for i:=1 to n do begin
    a[i]:=random(351)+20;
    Write(a[i],' ');
    if a[i]<a[imin] then imin:=i
    end;
  Writeln;
  Writeln('Минимальный элемент a[',imin,']=',a[imin])
end.

Пример
Исходный массив
292 54 248 310 181 210 263 284 255 156 177 340 173 39 108 144 270 40 318 155
Минимальный элемент a[14]=39
4,8(1 оценок)
Ответ:
SIHGFI
SIHGFI
14.05.2020
1. Почему работа компьютера невозможна без операционной системы? 
Потому что операционная система дает игроку весь возможносный инструментарий. Много ли вы сможете наработать на выключенном компьютере?
2. Какие операционные системы вы знаете?
Windows (95,98, ME, XP, 7, 10), Android, Linux, MacOS
3. Какие программы, кроме операционной системы, относятся к системному ПО? Драйвера, антивирусы, 

4. Какие системы программирования вам известны?
Pyton, C++
5. Для специалистов какой профессии предназначены системы программирования?
Программист, Специалист в области кибербезопасности
4,7(55 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ