Набрать буквы основного ряда через запятую и пробел: а)прописные б)заглавные . придумать слова с использование букв основного ряда (желательно имена существительные)

Ответ на вопрос "набрать буквы основного ряда через запятую и пробел": а)

Ф, ы, в, а, п, р, о, л, д, ж ф, ы, в, а, п, р, о, л, д, ж радовал, вырывал, продавал, пропадал, подождал, водопад, подвал

// pascalabc.net var   n2,n4,a,b: integer; begin   write('введите натуральное двухзначное число: '); read(n2);   write('введите натуральное четырехзначное число: '); read(n4);   a: =n2 div 10; b: =(n4 mod 100) div 10;   writeln(a*b) end. // pascalabc.net var   n5,n4,a,b: integer; begin   write('введите натуральное пятизначное число: '); read(n5);   write('введите натуральное четырехзначное число: '); read(n4);   a: =(n5 mod 1000) div 100; b: =(n4 mod 1000) div 100;   writeln(sqrt(a+b)) end.

Ты почти правильно все написала :)

var a : array[1..30] of integer;  // определяем массив, который будет состоять из 30 чисел типа integer (целых)

   i, sum : integer;  // Переменная i для итерации в цикле, sum - для суммы

begin

 sum := 0; //В начале сумма равна нулю

 randomize(); //инизициализиуем датчик псевдослучайных чисел

 for i := 1 to 30 do begin  // цикл, который будет повторяться 30 раз

   a[i] := random(0,10);  // Говорим, что элемент с индексом i в массиве равен рандомному числу от 0 до 10

   sum := sum + a[i];  // Прибавляем к переменной sum элемент массива с индексом i

 end;

 write('Сумма: ' + sum) //Выводим

end.