Информатика
Информатика, 14.10.2019 13:30, Darynaost

Вопрос/Задача:

Генератором случайных чисел (от 0 до 100) задан массив из 20 целых чисел. составьте программу, с которой напечатайте на одной строчке исходный массив, а на следующей строке - сумму квадратов элементов с начетными индексами

Ответы на вопрос

Ответ
Ответ разместил: Гость

var a: array [1..8,1..5]of integer;

s,i,k: integer;

begin

  randomize;

  for i: = 1 to 8 do begin

        for k: = 1 to 5 do begin

              a[i,k]: = random(20)-10;

              write(a[i,k]: 3,' ');

              if a[i,k] mod 2 = 0 then s: =s+a[i,k];

        end;

        writeln;

  end;

  writeln('s=',s);

end.

       

Ответ
Ответ разместил: Гость

var x1,x2,x3,x4: integer;

 

function max(a,b: integer): integer

begin

    if a> b then max: = a

    else max: =b;

end;

 

begin

  read(x1,x2,x3,x4);

  x1: =max(x1,x2);

  x2: =max(x3,x4);

  x1: =max(x1,x2);

  writeln(x1);

end.

Ответ
Ответ разместил: Гость

может кто перепишет на паскаль

вот на c:

 

#include < stdio.h> int main(void){  int km, day;   day = 1;   km = 10;   while (km < = 200)  {  if (km == 20)  {    printf("20km in %d day\n", day);     }     km += km / 10;   day++;   }  printf("< 200km in %d day", day);   printf("\n");   system("pause");   return 0; }

Ответ
Ответ разместил: Igir37yx

uses crt;

var i,s: integer; a: array[1..20] of integer;

beginfor i: =1 to 20 do a[i]: =random(100)+0; for i: =1 to 20 do write(a[i],' '); writeln; for i: =1 to 20 do if i mod 2 < > 0 then s: =s+sqr(a[i]); writeln('suma = ',s); readln; end.

Похожие вопросы

Вопросы по предметам

Вопросов на сайте: