Информатика, опубликовано 13.02.2019 04:50
Вмассиве из 10 целых чисел подсчитать сумму элементов, стоящих правее минимального.написать программу на языке паскаль., .
Ответ оставил: Гость
Var a: array [1..10] of integer; i, min, sum: integer; begin for i : = 1 to 10 do begin a[i] : = random(50); writeln('[', i, '] => ', a[i]); end; min : = a[1]; for i : = 2 to 10 do if (min > a[i]) then min : = a[i]; i : = 1; while ((i < = 10) and (a[i] < > min)) do begin sum : = sum + a[i]; inc(i); end; writeln(sum); end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01