1. Информатика
  2. с информатикой! Сделать оригинально

с информатикой! Сделать оригинально Составить программу на Паскале для обработки массива Z=(2.13; 14.1; −13.66; 0; −2; −16.5; 12; 142.3; 122; 111) при b = 3. Посчитать количество и напечатать номера элементов, которые больше b, с нечетными номерами.

привки228 привки228    3   29.02.2020 00:41    0

Ответы
Heh6 Heh6  11.10.2020 15:30

program mas_bol_4_cnechind;

const

z:array[1..10]of real=(2.13, 14.1,-13.66, 0, -2, -16.5, 12,142.3, 122, 111);

b=3;

var

k,i:integer;

begin

k:=0;

for i:=1 to 10 do

if (z[i]>b)and(i mod 2=1) then

inc(k);

write(k)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Fakla Fakla  03.09.2019 19:36
Вкаком случае неопределенность стремится к нулю​...
Danaaad Danaaad  03.09.2019 21:30
1.работники удалённой метеостанции каждые 3 часа измеряют температуру и влажность воздуха и данные по рации в районный метеоцентр. там эти данные сводят в таблицу и...
tatyanamazur90 tatyanamazur90  23.06.2019 18:00
Составить программу, которая формирует массив а из 85 случайных целых чисел, принадлежащих промежутку [4; 14]. параметром цикла является переменная s. нумерация начинается...
Katyamanubata Katyamanubata  23.06.2019 18:00
Как преобразовать текстовые данные в числовые данные? например три-11, десять- 1010, 6-?...
nurik139 nurik139  23.06.2019 18:00
Для чего используют графический редактор представители разных профессий?...
arslankutdusov arslankutdusov  23.06.2019 18:00
Написать программу на паскале 1. найти объем параллелепипеда (стороны ввести с клавиатуры) 2. высота треугольника равно 7 см, а основание 3 см. написать программу, вычисляющую...
dykbguojd dykbguojd  23.06.2019 18:00
Десять «ос». вставь вместо пропусков буквы, так чтобы вместе с уже написанными получились бы слова-отгадки. «ос _ _ а» - «ос _ _ а» - «_ ос _ а» - «_ ос _ _ _ а _ »...
SAVFOREVER SAVFOREVER  10.09.2021 12:50
книга содержит 200 страниц на каждой странице 50 строк,в каждой строке 100 символов . Определите информационный объем книги...
karinakatushkiowsqqh karinakatushkiowsqqh  10.09.2021 12:56
N, k= [int(i) for i in input().split()] list = [1] for i in range(n): while len(list) k: list.extend(list) g = len(list) / 2 + 1 list.insert(g, n+1) print(list[k]) выдает...
vadimamaniya vadimamaniya  10.09.2021 12:57
N = int(input()) d = 0 for i in range(n): a , b= [int(i) for i in input().split()] for s in range(i): if (a[i] = mac) and (b[i] = moc): d = d + 1 mac = a[i] moc = b[i]...

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