Приложение в Пример оформления задания к ргр
№ 3. Даны действительные числа a[1],...,a[10]. Вычислить сумму положительных чисел.
Program PRIM;
var a:array[1..10] of integer; i,s:integer;
begin
writeln('Введи 10 чисел массива А');
for i:=1 to 10 do read(a[i]);
write('Исходный массив:');
for i:=1 to 10 do write(' ',a[i]:3); writeln;
s:=0;
for i:=1 to 10 do
if a[i]>0 then s:=s+a[i];
writeln('Сумма = ',s:4)
end.
Исходный массив: 5 -4 2 -6 -7 3 -1 11 -9 -1
Сумма = 21
Приложение г Пример диалога с пэвм
ВВОД ДАННЫХ
Введите номер курса (1 или 3): 1
Введите номер РГР (1-4 или 1-2): 1
Введите номер варианта: 1
Введите путь и имя файла: С:\ТЕМР\ИТ08-1\ргр1
Методические указания
к расчетно-графическим и самостоятельной работам
по дисциплине
«Алгоритмизация и программирование»
(для студентов специальности 7.080402)
Составители: Ольга Владимировна Веремей,
Валентина Викторовна Зоненко.
Редактор Ольга Николаевна Болкова
Подп. в печ. Формат 60х80 1/16.
Ризограф. печать Усл. печ. л. 2,5 Уч.-изд. л. 1,82
Тираж 75 экз. Заказ №
ДГМА. 84313, Краматорск, ул. Шкадинова, 72