1. Информатика
  2. Дан массив S из 20 вещественных

Дан массив S из 20 вещественных чисел. Составить программу, с которой можно ввести элементы массива и определить есть ли элементы массива равные элементу S[15], и вывести их сумму.

Станислав929 Станислав929    2   19.05.2020 12:26    0

Ответы
Sakura171 Sakura171  15.10.2020 00:14

var s:array[1..20] of real;

i:integer;

sum_mas: real;

begin

sum_mas:= 0;

for i:=1 to 20 do readln(s[i]);

for i:=1 to 20 do

if (s[15] = s[i]) then sum_mas:= sum_mas + s[i];

write(sum_mas);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ksp86450 ksp86450  02.10.2019 09:53
Разведчик направил своему агенту три письма. в первом письме был листочек с квадратной таблицей (рис. 1.1), а в третьем - листочек с другой таблицей (рис. 1.2). второе...
1venera4 1venera4  02.10.2019 09:54
Между населенными пунктами a, b, c, d, e построены дороги, протяженность которых (в километрах) а в c d e 4 2 3 16 в 4 5 с 2 5 d3 3 1 е 16 4 определите, сколько существует...
Kalltan Kalltan  02.10.2019 11:10
Для каждого натурального числа x можно определить развёрнутое число rev(x) следующим образом: 1. число x записывается в десятичной системе счисления, например: 1021400....
ekaterinibytori ekaterinibytori  02.10.2019 10:01
1какие зависимости можно формализовать, используя язык ? 2 какому из требований не соответствует модель, если её результат имеет слишком большую погрешность? 3 какое...
galinadik84 galinadik84  13.09.2019 05:50
(не ошибки) под…………эвм понимают описание устройства и принципов работы компьютера, достаточное для пользователя и программиста. 2. указание на последовательность действий...
Brot2007 Brot2007  13.09.2019 05:50
Дан одномерный целочисленный массив, заданный случайными числами на промежутке [-50; 50]. заменить в массиве все отрицательные элементы на элементы им противоположные...
tamilyamehtiev tamilyamehtiev  13.09.2019 05:50
Цветное изображение с палитрой из 8 цветов имеет размер 6x8 точек. какой информационный объем в байтах имеет изображение?...
Sinci Sinci  09.12.2021 16:12
Для кодирования сообщения, состоящего только из букв А, Б, В и Г, используется неравномерный по длине двоичный код: А-00, Б-11, В-010, Г-011 Закодируйте таким образом...
медныйвсадник медныйвсадник  09.12.2021 16:08
информационное сообщение объёмом 3.5 кбайта содержит 3584 символа. сколько символов содержит алфавит при которого записано сообщение...
Vika2002588 Vika2002588  18.05.2020 21:07
1.На вход программе поступает последовательность целых чисел по одному числу в каждой строке, все числа последовательности отличны от нуля. Количество чисел неизвестно....

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