Циклы с параметром: Выдать на печать сумму чисел, больших 100

@ilyagerasimov · Регистрация: 08.11.2012

Помогите решить задачку)
Ввести 85 значений переменной A. Выдать на печать сумму чисел, больших 100 и сами числа.

@CodeR · 19.11.2012, 10:46

Pascal

Const n=85;
Var A:array[1..n] of integer;
    i,s:integer;
Begin
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');readln(A[i]);
      if A[i]>100 then s:=s+A[i];
    End;
    writeln('Сумма = ',s);
    For i:=1 to n do
     if A[i]>100 then write(A[i],' ');
    readln;
End.

@ilyagerasimov 0 / 0 / 0 Регистрация: 08.11.2012 Сообщений: 9
		1
	Циклы с параметром: Выдать на печать сумму чисел, больших 100 18.11.2012, 12:29. Просмотров 1240. Ответов 1 Метки нет (Все метки) Помогите решить задачку) Ввести 85 значений переменной A. Выдать на печать сумму чисел, больших 100 и сами числа. 0

Опции темы

Циклы с параметром: Выдать на печать сумму чисел, больших 100

Решение