profile
Опубликовано 5 лет назад по предмету Информатика от Natq

Дан массив из 20 целых чисел заполненный случайным образом от 10 до 99 . Найти сумму десятков( пример:первых чисел из 19 и 23 найти сумму 1 и 2)

  1. Ответ
    Ответ дан WolvesPack
    program sum1;
    var a:array[1..20] of integer; k,i:integer;
    begin
    k:=0;
    randomize;
    for i:=1 to 20 do
    begin
    a[i]:=random(90)+10;
    write(a[i],' ');
    k:=k+ a[i] div 10;
    end;
    readln;
    write('summa desyatkov = ',k);
    readln;
    end.
    1. Ответ
      Ответ дан Natq
      Массив вводится с клавиатуры
    2. Ответ
      Ответ дан WolvesPack
      program sum1;
      var a:array[1..20] of integer; k,i:integer;
      begin
      k:=0;
    3. Ответ
      Ответ дан WolvesPack
      write('vvedite massiv'); for i:=1 to 20 do begin read(a[i]); k:=k+ a[i] div 10; end; readln; write('summa = ',k); readln; end.
    4. Ответ
      Ответ дан WolvesPack
      это через клаву
    5. Ответ
      Ответ дан Natq
      Спасибо
Самые новые вопросы