М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mtoropchin
mtoropchin
14.04.2023 16:36 •  Информатика

Даны оценки ученика по n предметам. требуется определить общее количество пятерок и четверок. формат входных данных на первой строке входного файла записано натуральное число nn (n≤100)(n≤100) — количество оценок. на следующей строке через пробел записаны оценки ученика — целые числа от 11 до 55. формат выходных данных требуется вывести искомое число. примеры входные данные: 3 4 5 3 выходные данные: 2

👇
Ответ:
XxNoNamexX
XxNoNamexX
14.04.2023
//Dev-C++ 5.11 (C)

#include <stdio.h>

int main(void)
 {int arr[100],n,k;
 scanf("%d",&n);
 k=0;
 for(int i=0;i<n;i++)
  {scanf("%d",&arr[i]);
  if(arr[i]==4 || arr[i]==5)
   k++;}
 printf("%d",k);
 return 0;}
4,5(99 оценок)
Ответ:
nekiti444
nekiti444
14.04.2023
Var
  i, c, n: integer;
  ar: array[1..10000]of integer;

 begin
  c := 0;
  readln(n);
  for i := 1 to n do
   begin
    read(ar[i]);
    if (ar[i] = 4) or (ar[i] = 5) then c := c + 1;
  end;
  write(c);
 end.
4,6(43 оценок)
Открыть все ответы
Ответ:
irinakol30p00rgy
irinakol30p00rgy
14.04.2023

PROFIT?

 

program lol;
var
mas:array[1..20] of integer;
max,min,i:integer;
begin
randomize;
for i:=1 to 20 do
begin
mas[i]:=random(100);
writeln('Element #',i,': ',mas[i]);
end;
writeln;
for i:=1 to 20 do if mas[i] > max then max:=mas[i];
writeln('MAX: ',max);
min:=max;
for i:=1 to 20 do if mas[i] < min then min:=mas[i];
writeln('MIN: ',min);
writeln;
for i:=1 to 20 do
if (mas[i] >= min) and (mas[i] <= max) and (mas[i] mod 5 = 0) and (mas[i] <> 0) then
writeln('Element #',i,': ', mas[i]);
readln;
end.

4,8(86 оценок)
Ответ:
AlexandraBobkova
AlexandraBobkova
14.04.2023
Uses GraphABC; 
procedure Draw(x, y, l, u : Real; t : Integer);

procedure Draw2(Var x, y: Real; l, u : Real; t : Integer);
begin
Draw(x, y, l, u, t);
x := x + l*cos(u);
y := y - l*sin(u);end; 
begin
if t > 0 then
beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1);
Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end
else
Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end;
begin
SetWindowSize(425,500);
SetWindowCaption('Фракталы: Снежинка Коха');
Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4);
Draw(210, 8, 400, -pi/3, 4);end.
4,6(15 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ