Заполнить массив 15-ю случайными целыми числами - вопрос №1583011024885 от andreybalashov 21.02.2023 03:12

Question

Информатика: Заполнить массив 15-ю случайными целыми числами из промежутка [8; 30] и вывести на экран сумму элементов, оканчивающихся цифрой 7.

andreybalashov · Answer

uses crt;varf:array[1 .. 15] of integer;s,i:integer;beginrandomize;begin s:=0;for i:=1 to 15 do begin a[i]:= random(22)+8;if (a[i] mod 10=7) then s:=s+a[i];end;write (s);end.Объяснение:...