Нужно написать 11 задачу в паскале !!!...

NIKNIK151298 @NIKNIK151298

July 2022 1 20 Report

Нужно написать 11 задачу в паскале !!!

Answers & Comments

sokolovmantrix

Verified answer

Var N:array[1..20] of byte;
i,k:longint;
begin
for i:=1 to 20 do read(N[i]);
for i:=1 to 20 do if N[i]<3000 then k:=k+1;
write(k);
end.

2 votes Thanks 0

More Questions From This User See All

NIKNIK151298 August 2021 | 0 Ответы

Написать код в паскале...

рекомендуемые вопросы

rarrrrrrrr August 2022 | 0 Ответы

о чем должны позаботиться в первую очередь взрослые при организационном вывозе н...

danilarsentev August 2022 | 0 Ответы

Есть два станка на которых выпускают одинаковые запчасти один производит a запча...

myachina8 August 2022 | 0 Ответы

Найти по графику отношение V3:V1. В ответах написано 9, но нужно решение...

ydpmn7cn6w August 2022 | 0 Ответы

Choose the correct preposition: 1.I am fond (out,of,from) literature. 2.where ar...

millermilena658 August 2022 | 0 Ответы

Определите Как создавалась и кто создавал арабское государство в крации...

MrZooM222 August 2022 | 0 Ответы

Ч. Айтманов в рассказе "Красное яблоко" использует метод рассказ в рассказе. Опи...

timobila47 August 2022 | 0 Ответы

каково было назначение каждой из частей византийского храма? помогите пожалуйста...

ivanyyaremkiv August 2022 | 0 Ответы

Участник Знаний August 2022 | 0 Ответы

Пожалуйста!!!!!!!!!!!!...

sarvinozwakirjanova August 2022 | 0 Ответы

помогите пожалусто пж...

Helpful Links

Политика конфиденциальности

Правила и условия

Контакты

Helpful Social

Copyright © 2025 SCHOLAR.TIPS - All rights reserved.