написать программу которая организует массив из 10 целых чисел по случайному закону в интервале от 0 до 40 и определяет сумму элементов массива . на экран выводятся элементу массива в строку с форматом 4 и сумма с новой строки.
//PascalABC.NET версия 3.2, сборка 1389 //Если программа не запускается, то обновите версию uses System.Linq; begin begin writeln('I'); var n := ReadInteger('n='); Writeln((1 + 1 + Power(2, n - 1)) * n / 2); end;
begin writeln; writeln('II'); var n := ReadInteger('n='); Writeln(n mod 11 = 0 ? 'YES' : 'NO');
end;
begin writeln; writeln('III'); var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList; writeln;
while a.Any() do begin write(a[0], ' '); a.RemoveAt(0); if not a.Any then break;
write(a.Last, ' '); a.RemoveAt(a.Count - 1); if not a.Any then break;
var n := 0; if a.Count > 1 then n := a.Count div 2 - 1; write(a[n], ' '); a.RemoveAt(n); end; end; end.
Написали бы язык программирования. Вот на java. import java.io.BufferedReader; import java.io.IOException; import java.io.InputStreamReader;
public class znanie { public static void main(String[] args) throws IOException { BufferedReader reader=new BufferedReader(new InputStreamReader(System.in)); long A=Long.parseLong(reader.readLine()); long B=Long.parseLong(reader.readLine()); if((A<0)||(B<0)){ System.exit(0); } long sum=0; for (long i = A; i <= B; i++) { if((i%5==0)||(i%13==0)){ sum=sum+i; } } System.out.println(sum); } }
var
a: array [1..10] of Integer;
i, s: Integer;
begin
Randomize;
s := 0;
for i := Low (a) to High (a) do begin
a [i] := Random (41);
Write (a [i] :4);
s := s + a [i];
end;
WriteLn;
WriteLn ('Сумма = ', s);
ReadLn;
end.