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.
16
Объяснение:
Переводим килобиты в килобайты:
256/8=32
Теперь ищем время:
512/32=16 с