Консультация № 136904
15.05.2008, 10:16
0.00 руб.
0 1 1
Решите пожалуйста эти задачи на паскале :
Дан массив, состоящий из 15 элементов. Элементы сформированы случайным образом из промежутка от -30 до 30.
1. Найти сумму элементов с к-1-ой по к2-ой, где к1 и к2 вводятся с клавиатуры.
2. Найти все элементы, кратные 3 или 5. Сколько их?

Обсуждение

Неизвестный
15.05.2008, 11:20
общий
это ответ
Здравствуйте, Михаил Медведев!
Программа в приложении, написана в Turbo Pascal 7. Типы shortint, byte, используемые в программе, - целочисленные, но занимают меньше места в ОЗУ. Допустимые значения для типов условию задачи удовлетворяют. Если что непонятно, стучитесь в аську или агент.
Удачи!

Приложение:
program p136904;uses crt;const N=15;var a:array [1..N] of shortint; c,i,k1,k2:byte; sum:integer;BEGINclrscr;randomize;c:=0; sum:=0;for i:=1 to N do begin a[i]:=random(61)-31; write(a[i],‘ ‘); {Чтобы видеть правильность выполнения программы} end;writeln;writeln(‘Введите К1 и К2‘);readln(k1,k2);if k1<k2 then for i:=k1 to k2 do sum:=sum+a[i];if k1>k2 then for i:=k1 downto k2 do sum:=sum+a[i];writeln(‘Сумма равна ‘,sum);writeln(‘Элементы, кратные 3:‘);for i:=1 to N do begin if a[i] mod 3 = 0 then begin write(a[i],‘ ‘); inc(c); end; end;writeln;writeln(‘Элементы, кратные 5:‘);for i:=1 to N do begin if a[i] mod 5 = 0 then begin write(a[i], ‘ ‘); inc(c); end; end;writeln;writeln(‘Всего ‘,c);readln;end.
Форма ответа