1 задание (Все готовые лабы по паскалю)
Описание файла
Файл "1 задание" внутри архива находится в следующих папках: 1kyrs_1semestr_paskal_labworks, 4 лабораторка. Документ из архива "Все готовые лабы по паскалю", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве МГТУ им. Н.Э.Баумана. Не смотря на прямую связь этого архива с МГТУ им. Н.Э.Баумана, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информатика" в общих файлах.
Онлайн просмотр документа "1 задание"
Текст из документа "1 задание"
-
даны: натуральное число n, действительное число . Вычислить сумму тех чисел этой последовательности, которые неотрицательные, но не превышают 12,5.
-
Текст программы:
var
n,i:integer;x:array[1..100]of real;s:real; k:boolean;
begin
write('n=');
readln(n);
s:=0;
k:=true;
for i:=1 to n do begin
write('x');
readln(x[i]);
end;
for i:=1 to n do begin
if (x[i] < 12.5) and (x[i]>0) then
s:=s+x[i];
end;
if k then
writeln('error');
writeln('s=',s);
readln;readln;
end.
-
Исходные данные: n=3 and x=1,x=2,x=3.(n=3 and x=13,x=2,x=-4) Результат: s=6.0000000000E+00 ( s=2. 0000000000E+00)
нет
да
да
нет