Значения двух массивов А[1..100] и B[1..100] задаются следующим фрагментом программы for i:=1 to 100 do a[i]:=i-10; for i:=1 to 100 do B[i]:=a[i]i; Сколько элементов массива будут иметь отрицательные значения?
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. S:=0; for i:=1 to 10 do if a[i]>0 then s:=s+1; writeln(s); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 9; 0; -5; 0; 1) и фрагмент программы. N:=1; for i:=1 to 10 do if a[i]>a[n] then N:=i; writeln(n); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. N:=1; for i:=1 to 10 do if a[i]>a[n] then N:=i; writeln(a[n]); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. S:=0; for i:=1 to 10 do if a[i]>0 then s:=s+a[i]; writeln(s); Что будет напечатано? *
Дан массив А[n], из 10 элементов (1; 5; -2; 3; -5; 6; 0; -5; 0; 1) и фрагмент программы. S:=0; for i:=1 to 10 do s:=s+a[i]; writeln(s); Что будет напечатано? *

Показать ответ

Ответ:

foximmortal

25.08.2021 10:42

var x, n: integer; n1: real; begin Writeln('Введите число: '); Read(x); if (x > 9) and (x < 100) then begin n := (x div 10) + (x mod 10); Writeln('Сумма цифр равна: ', n); end; if (x > 99) and (x < 1000) then begin n := (x div 100) * ((x div 10) mod 10) * (x mod 10); Writeln('Произведение цифр равно: ', n); end; if (x > 999) and (x < 10000) then begin n := x div 1000 + (x div 100) mod 10 + (x div 10) mod 10 + x mod 10; n1 := n / 4; Writeln('Среднее арифметическое равно: ', n1); end; if x > 9999 then begin Writeln('Введите 2-х, 3-х или 4-х значное число'); end; end.

0,0(0 оценок)

Ответ:

Алёна16578

21.05.2022 02:55

Программа со статическим массивом:

Var
M: array[1..32767] of real;
Min: real;
N, i: integer;
Begin
Write('N = ');ReadLn(N);
if (N <= 0) then
    WriteLn('Количество элементов должно быть положительно')
else
begin
    Write('Введите элементы массива в количестве ',N,' штук');
    For i:= 1 to N do
      Read(M[i]);
    Min := M[1];
    For i:= 2 to N do
      if (M[i] < Min) then
        Min := M[i];
    WriteLn;
    Write('Получившийся массив:');
    For i:= 1 to N do
    begin
      M[i] := M[i] / Min;
      Write(' ',M[i]);
    end;
end
End.

0,0(0 оценок)

Популярные вопросы: Информатика