Создать одномерный массив A состоящий из 15 элементов заполнить с егооп правилу: каждый элемент массиваравен произведению его номера и числа Z вводимого с клавиатуры. посчитать сумму элементов больгих 40

2

Ответы и объяснения

2013-06-10T14:19:17+00:00

var

a:array [1..15] of integer;

i,z,s:integer;

begin

write ('Z = ');readln(z); 

for i:=1 to 15 do begin

a[i]:=i*z;

if a[i]>40 then s:=s+a[i];

write (a[i],' '); 

end;

writeln;

writeln ('Summa: ',s);

readln;

end.

 

2013-06-10T15:23:48+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

Program Mysmka;
uses crt;
const n=15;
var
  a:array[1..n] of real;
  i:integer;
  z,sum40:real;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  write('Введите загадочное число Z ');
  readln(z);
  writeln('Элементы массива:');
  {создание и вывод массива}
  sum40:=0;
  for i:=1 to n do
    begin
      a[i]:=i*z;
      write (a[i]:7:2);
      if a[i]>40 then sum40:=sum40+a[i];
    end;
  writeln();
   writeln('Сумма чисел, больших 40: ',sum40:7:2);    
end.