Найти сумму всех элементов массива

Question

Найти сумму всех элементов массива

Answer 1

37

autoalex

06 июня 2024

Vara: array [1… 100] of integer; i,s: integer; k: real; beginRandomize; k: =0; for i: =1 to 20 do begin a[i]: =random (150)+150; k: =k+a[i]; write (a[i],'); end; k: =k/20; s: =0; for i: =1 to 20 do if a[i] комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Другие вопросы по информатике

plazar

06 июня 2024

1

ответ

Какое количество информации содержится в слове КОДИРОВАНИЕ (ответ в битах)

grumpi

06 июня 2024

1

ответ

Пусть А=1; В=0; С=1 Найдите не (А или В и (А или С) или не (Вили не С) и построить логическуюсхему.

ikiru

06 июня 2024

1

ответ

Установите соответствие между понятиями и их описаниями. Пиксель основное устройство вывода видеоинформации простран-колличество пикселей из которых складывается изображение

roman_v

06 июня 2024

1

ответ

В каких степенях счисления число 27 (в десятичной системе счисления) оканчивается на 3 , как этоделать?

yuroc

06 июня 2024

1

ответ

Если к 3 прибавить 4, потом умножить полученное на 4, и разделить на разность 8 и 6, то в результате получится 14 вцифрах

mikos

06 июня 2024

1

ответ

Даны переменные A,B,C,D, отыскать среди них максимум и минимум, нужно текст для паскаля, помогитепожалуйста

allecs

06 июня 2024

1

ответ

Даны переменные A,B,C,D найти MAX и MIN надо текст для паскаля

imoisey

06 июня 2024

1

ответ

Задание 1. Даны высказывания: А=Я выполнил домашнее задание по информатике. В=Я получил оценку «5». С=Я получил оценку «2» . D=Я буду наказан. Запишите следующие сложные высказывания на языке алгебры логики: Я выполнил домашнее задание по информатике, я получу сегодня «5». Хотя я не выполнил домашнее задание по информатике, я не получил «2». Задание 2. Даны простые высказывания: А={2*2=4}, В={2∙2=5}, С={3∙3=9}. Какие из составных высказываний истинны: а) А; б) В; в) С; г) А∙В; д) AvB; е) А∙С; ж) СvB. Задание 3. Даны простые высказывания: А={5<3}, В={2=3} и С={4>2}. Определите истинность составных высказываний a) (AvB) ∙ C; б) (A ∙ C) v (B ∙ C); в) (A ∙ B) vC .

andreaskotin

06 июня 2024

1

ответ

Ребят, помогите перевести данный код на язык Visual Basic Program prim; Var a,r,s1,s2: real; BeginWrite ('введите площадь круга и квадрата'); Readln (s1, s2); A: =sqrt (s2); R: =sqrt (s/3,14); If (r (4*r) then writeln ('квадрат уместится в круге') Else Writeln ('квадрат не уместится в круге'); ReadlnEnd.

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: