Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях.
10-11 класс
|
1)
Program Z1;
var m:array[1..12] of integer;
k,i,c:integer;
Begin
k:=-2;
c:=0;
For i:=1 to 10 do begin
m[i]:=k;
if k>0 then begin k:=k+2; k:=-k; c:=1; end;
if (k<0) and (c<>1) then begin k:=k-2; k:=-k; end;
write(m[i],' ');
c:=0;
end;
end.
2)
Program Z2;
var m:array[1..10000] of integer;
i,c,min,N:integer;
Begin
min:=320000;
Writeln('Введите длинну массива');
Readln(N);
For i:=1 to N do begin
Writeln('Введите элемент массива');
Readln(m[i]);
If (m[i]>0) and (min>m[i]) then begin min:=m[i]; c:=i;
end;
end;
writeln('минимальный среди положительных эллементов массива=',min, 'его номер=',c);
end.
Program Z3;
var m:array[1..10000] of integer;
i,N,sum:integer;
Begin
sum:=1;
Writeln('Введите размерность массива');
Readln(N);
For i:=1 to N do begin
Writeln('Введите эллемент массива');
Readln(m[i]);
if m[i]>0 then sum:=sum*m[i];
end;
writeln('Сумма положительных эллементов массива=',sum);
end.
(Проверено и откомпелировано на Pascal.NET,Если есть вопросы, пишите)
Другие вопросы из категории
племени состоит из 32 символов?
a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).
Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)