1) var a: array[0..10] of integer; i, s: integer; begin for i := 1 to 10 do begin a[i] := random(60); write(a[i], ' '); if a[i]<=20 then s:=s+a[i]; end; writeln; writeln(s); end.
2) var a: array[0..10] of integer; i, s: integer; begin for i := 1 to 10 do begin a[i] := random(60); write(a[i], ' '); // if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов. // if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов. end; writeln; writeln(s); end.
1) var a1, a2, a3, s: integer; begin write('Введите первое число: '); readln(a1); write('Введите второе число: '); readln(a2); write('Введите третье число: '); readln(a3); if a1>0 then s:=s+1; if a2>0 then s:=s+1; if a3>0 then s:=s+1; writeln(s); end.
2) var n, s, i: integer; begin write('Введите число n: '); readln(n); for i:=1 to n do s:=s+i; writeln(s); end.
3) var n, s, i, k: integer; begin write('Введите число n: ');readln(n); for i:=1 to n do begin writeln('Введите рост ',i,' учащегося: '); readln(k); s:=s+k; end; writeln(s/i); end.
4)var l, m: integer; begin write('Введите расстояние в сантиметрах: '); readln(l); m := l div 100; write('Количество метров в ', l, ' сантиметрах = ', m); end.
begin
for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
if a[i]<=20 then s:=s+a[i];
end;
writeln;
writeln(s);
end.
2) var a: array[0..10] of integer; i, s: integer;
begin for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
// if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.
// if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.
end;
writeln;
writeln(s);
end.
begin
write('Введите первое число: ');
readln(a1);
write('Введите второе число: ');
readln(a2);
write('Введите третье число: ');
readln(a3);
if a1>0 then s:=s+1;
if a2>0 then s:=s+1;
if a3>0 then s:=s+1;
writeln(s);
end.
2) var n, s, i: integer;
begin
write('Введите число n: ');
readln(n);
for i:=1 to n do
s:=s+i;
writeln(s);
end.
3) var n, s, i, k: integer;
begin
write('Введите число n: ');readln(n);
for i:=1 to n do begin
writeln('Введите рост ',i,' учащегося: ');
readln(k);
s:=s+k;
end;
writeln(s/i);
end.
4)var l, m: integer;
begin
write('Введите расстояние в сантиметрах: ');
readln(l);
m := l div 100;
write('Количество метров в ', l, ' сантиметрах = ', m);
end.