Регистрация
keniwo
22.09.2020 10:55
Информатика
Есть ответ 👍

Задать массив м 14 случайными числами от 15 до 67

230
350
Посмотреть ответы 2

Ответы на вопрос:

phon1
phon1
4,7(44 оценок)
Const z = 14; // размер массива  var    m: array [1..z] of integer;   i: integer;   begin for i: =1 to z do begin m[i] : = random(15,67); end; writeln('элементы массива: '); for i: =1 to z do begin    w rite(m[i],' ');     end; end.
danyaaseev2006
danyaaseev2006
4,7(35 оценок)
12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 var   a, b, c, x, y, z: integer;   summa1, summa2: integer; begin   write('яблоки(руб/кг): ');   readln(a);   write('груши(руб/кг): ');   readln(b);   write('апельсины(руб/кг): ');   readln(c);   writeln;   writeln('понедельник: ');   write('продано кг яблок: ');   readln(x);   write('продано кг груш: ');   readln(y);   write('продано кг апельсинов: ');   readln(z);   summa1: =x*a+y*b+z*c;   writeln;   writeln('вторник: ');   write('продано кг яблок: ');   readln(x);   write('продано кг груш: ');   readln(y);   write('продано кг апельсинов: ');   readln(z);   summa2: =x*a+y*b+z*c;   writeln;   writeln('понедельник: ', summa1, ' руб; вторник: ', summa2, ' руб'); end.

Популярно: Информатика